home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 6
/
FM Towns Free Software Collection 6.iso
/
t_os
/
kabegami
/
kabe2.bas
< prev
next >
Wrap
BASIC Source File
|
1993-07-08
|
727b
|
26 lines
10 SCREEN@1 : CLS : RANDOMIZE TIME
20 '
30 FOR TP=0 TO 3
40 FOR I=0 TO 319
50 X1=I : X2=319-I
60 LINE(X1,0)-(X2,239),PASTEL,[150,RND*150,RND*150]
70 NEXT
80 FOR I=0 TO 239
90 Y1=239-I : Y2=I
100 LINE(0,Y1)-(319,Y2),PASTEL,[150,RND*150,RND*150]
110 NEXT
120 NEXT
130 ON ERROR GOTO *ERROR
140 SAVE@"tmenu.TIF",(0,0)-(319,239)
150 *ERROR
160 CLS : BEEP
170 IF ERR=64 THEN
180 PRINT "同じディレクトリに「TMENU.TIF」が存在しています。"
190 PRINT "削除するか、別のところへ移動させてください"
200 ENDIF
210 IF ERR=65 THEN
220 PRINT "ディスクの空き容量が足りません。"
230 PRINT "削除するか、別のところへ移動させてください"
240 ENDIF
250 WAIT 500 : END